(fortran-blink-matching-do): When looking for do,

insist on nondigit after it.

diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el
index 41395a19ad52aa6e3bb1e5fca3c6868f5601cd9a..1ea86503aae4114f5e4d9dd59298dda16bdab921 100644 (file)
--- a/lisp/progmodes/fortran.el
+++ b/lisp/progmodes/fortran.el
@@ -746,12 +746,12 @@ non-comment Fortran statement in the file, and nil otherwise."
                              "^[ \t0-9]*end\\b[ \t]*[^ \t=(a-z]")))
                                        ; Keep local to subprogram
              (skip-chars-forward " \t0-9")
-             (cond ((looking-at "do[ \t]+")
+             (cond ((looking-at "do[ \t]+[^0-9]")
                      (setq count (- count 1)))
                    ((looking-at "end[ \t]*do\\b")
                     (setq count (+ count 1)))))
            (if (not (= count 0))
-               (setq message "No matching do.")
+               (setq message "No matching do")
              (if (< (point) top-of-window)
                  (setq message (concat "Matches " (buffer-substring
                                                    (progn (beginning-of-line)